home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / tls / tls035c.1 / lib / vtcl / tests / radio2.tcl / radio2.tcl
Encoding:
Text File  |  1995-03-23  |  1.4 KB  |  67 lines
  1.  
  2. #
  3. # a minimal test of the radiobox widget
  4. #
  5.  
  6. source tools.tcl
  7.  
  8. proc quitCB {cbs} {
  9.     VtClose
  10. }
  11.  
  12. proc toggleChangedCB {cbs} {
  13.     echo $cbs
  14. }
  15.  
  16. proc nextToggle {name label last} {
  17.     if {$last == ""} {
  18.     set tog [VtToggleButton $name -label $label -value 1 \
  19.              -xmArgs "XmNbackground red"]
  20.     } else {
  21.        set tog [VtToggleButton $name -label $label \
  22.              -xmArgs "XmNbackground red"]
  23.     }
  24.  
  25.     return $tog
  26. }
  27.  
  28. set app [VtOpen "testradiobox"]
  29.  
  30. set fn [VtStartForm $app.form -title "Radio Box Test" \
  31.        -xmArgs "XmNmarginWidth 10
  32.                 XmNmarginHeight 10
  33.             XmNbackground green"]
  34.  
  35. set rc1 [VtRadioBox $fn.rc1 -callback toggleChangedCB -borderWidth 2]
  36.  
  37. set tog ""
  38. foreach i {1 2 3} {
  39.     set tog [nextToggle $rc1.tog$i "Toggle $i" $tog]
  40. }
  41.  
  42. set rc2 [VtRadioBox $fn.rc2 -callback toggleChangedCB -below $fn.rc1 \
  43.     -borderWidth 2]
  44.  
  45. foreach i {4 5 6} {
  46.     set tog [nextToggle $rc2.tog$i "Toggle $i" $tog]
  47. }
  48.  
  49. set label [VtLabel $fn.label -label "No Callback Yet" -below $rc2]
  50. set label2 [VtLabel $fn.label2 -label "No Callback Yet" -below $label]
  51. set label3 [VtLabel $fn.label3 -label "No Callback Yet" -below $label2]
  52.  
  53. VtPushButton $fn.quit -callback quitCB \
  54.     -below $label3 \
  55.     -leftSide FORM\
  56.     -rightSide FORM\
  57.     -topOffset 10\
  58.     -leftOffset 5 \
  59.     -rightOffset 5\
  60.     -CHARM_topOffset 1\
  61.     -CHARM_leftOffset 2\
  62.     -CHARM_rightOffset 2
  63.  
  64. VtShow $fn
  65. VtMainLoop
  66.  
  67.